SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
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SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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(3) 137 PURGE DATAPATH 


SS _— 


; 
L10SUB750 = LOADABLE 1/0 SUBROUTIN 1 0:5 1 AX/VMS ™ 4e- 
04-000 dees Breen eee Be eB As PENCVOR Saeco Hone ky «| Peer Cd, 


»NOSHOW CONDITIONALS 
-TITLE LIOSUB750 = LOADABLE 1/0 SUBROUTINES 


-IDENT ‘v04=000' 


'MmARRAARARASAAAAAALALAALARARARARAASESERE SALE SES EASA RASA SERRE RRR RR RRR R RRR R AS SS | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE $8 FURNISHED ape? A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF vs". Bt AND WITH THE 
INCLUSION OF THE ABOVE ghd NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE OMADE AVAILABLE TO ANY 
Paesrekeiee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
a ookat iin. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 
EXECUTIVE, 1/0 CONTROL ROUTINES 
ABSTRACT: 
1/0 SUBROUTINES WHICH CONTAIN PROCESSOR DEPENDENCIES. 
AUTHOR: 
N. KRONENBERG, JANUARY 12, 1979. 
MODIFIED BY: 
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oOOoOoooooooo 
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0 
v03-012 KDM0096 Kathleen D. Mors 27-Mar-1984 
Add eonery CSR scanning to 10C SPURGDATAP for MicroVAX I. 
(ALL DMA MicroVAX I drivers should call this routine, just 
5 before calling oC REQCOM.) 
0 v03-011 goncost Kathleen D. Morse 13-Sep-1983 
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Create a version ter Micro-VAX I. 


aipieieemniatnatiaes 4 
ee 

L10SUB750 = LOADAB /0 ROUTIN 16-SEP-1984 00:50: AX/ 4- 

mr Naeitats LE 1/0 SUBROUTINES SE 1384 0:38: h1 X/VMS Macro V04-00 Page ‘i 


-SEP=1 SYSLOA.SRCJLIOSUB.MAR; 1 

v03-010 TCM0004 udy ¢ n-1982 
Added 11/790-specit ¢ Rey to MPOeSPURGDATAP™ 

vo9 TCMO0003 Trudy C. Matthews 99-Nov-1982 

0 Added a .TITLE statenent for L10SUB790. 

v08 TCM0002 Trud Bachous 29-Jul-1981 
Changed all "722s to "730% 

v07 TCMO001 Matthews 28-F eb-1980 


rud 

Changed IOCSPURGDATAP for NEBULA so that it | ogs 
the Unibus Error got Bey register itself 2 Be here 
are Unibus errors reported 


v06 NPKO002 N. KRONENBERG 4-DEC-1979 
REPLACED IOCSPURGDATAP FOR NEBULA 

v05 NPKOO0O1 N. KRONENBERG 23-AUG-1979 
CORRECTED 11/750 CHECK FOR PURGE DONE. 


v04 TCMO001 
Modified IOCSPURGDATAP Bia UNEBULAY 
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SOOooooooooooooooo 
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OOOO OODWOOWDOWOOWO YIN NNN 
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| 
. Matthews 35-Jul-1979 


A 


| 
voe=000 Deere! gepherene ares "Sr$EP=1986 Oe:10:05 ESySLOA.sReacroSuBcmaR:1 = 29° (3), 


| 
t MACRO LIBRARY CALLS: 
100 SADPDEF ; Define ADP offsets 
101 SCRBDEF : Define CRB offsets 
1 § SEMBETDEF :; Define error Rypes. 
1 SEMBUEDEF ; Define Unibus Error buffer. 
104 SIDBDEF 3; Define IDB offsets 
00 105 SPRDEF ; Define IPR'S 
8 1 § SUBADEF ; Define UBA offsets 
1 SUBIDEF ; Define UBI ar ieees 
8° 198 SUCBDEF ; Define UCB offse 
1 SVECDEF 3; Define CRB/VEC +: 
4 Wy 
000. = 11 
00000000 0000 117 C70 LIKE = 0 
00000001 4 118 C750_LIKE = 1 
00 120 
0000 125 
0000 130 
0000 135 


es 
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~SEP 
a -SBTTL PURGE DATAPATH 
; IOCSPURGDATAP = PURGE DATAPATH 
; datapath errors. 
; returned to the caller. 
INPUTS: 
RS = UCB address 
OUTPUTS: 


RO-R3 altered 
Other registers preserved 


OoOooooooooo Y¥ 


= CRB address 


0000 -PSECT WIONONPAGED 
-ENABL LSB 
IOCSPURGDATAP: : 


PUSHR #*M<R4> 
MOVL UCBSL_CRB(R5S 


COOoOooooooooooooooooooooooo 


G 2 
SUBROUTINES 16-SEP-1984 00: 
=1382 8: 


),R3 : G 
MOVE  a@CRBSC_INTD+VECSL_ADP(R3) .R 


50:1 AX/VMS Macr 
18:03 SYSLOA.SRCJLIOSUB.MAR; 1 


: This routine purges the caller's buffered datapath, and clears any 
f there was a datapath error, thi 


s fact is 


RO = low bit clear/set if transmission error/success 
R1 = DPR contents after purge (for register dump by caller) 
Re = address of start of adapter map registers (for reg dump by caller) 


; Save register 
et CRB address 


3; Extract gutapens a 


; Get address of DPR 

; Purge datapath 

; Get max # of tries for 

3 purge done test 

; Get DPR contents 

; Branch if purge done 

; Branch if more tries allowed 

; else, fatal error (purge state 
3 stuck on) 

; Branch if no error 

; Clear DPR error(s) 

; Set to return transfer error 

; Join common code 

; Set to return transfer success 
; Return address of ist map register 


; Restore register 


EF EXTZV  #VECSV_DATAPATH, - 
#VECS$S_DATAPATH,- : from 
51 37_A3 CRBSL_INTD*VECSE DATAPATH(R3) ,R1 
54 6241 De 1 MOVAL UBISL-DPR(R2)CRIJ,R4 _ ; 
64° 01 «00 7 1 ASHL #UBI$0_DPR_PUR, #1. (R4) 
50 OA 00 MOVL § #UBISC~PURTNT,RO 
51 64 D0 001 10$: MOVL (R4),R1 
0751 00 €1 001 BBC #UB1$V_DPR_PUR,R1,15$ 
F650 —#F 5 SOBGTR R 
BUG_CHECK BDPPURGERR, FATAL 
soe ee: 15$: BBC #UBISV_DPR_ERROR,R1,208 : 
Q D2 MCOML § «#0, (RAT 
D4 CLRL 
0 11 BRB $ 
0 01 9A 3 $: MOVZBL #1,R0 
52 0800 C2 DE $:  MOVAL UBISL_MAP(R2),R2 
10 BA POPR #*A<Rd> 
5 RSB 
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; Return 


o v04-00 Pa 
- 3 


2 ; Get start of adapter register space 


H 2 
voe=000 PURGE DATAPATH » OUTINES "SSEP=198e 80:70:05 ESYSLOR.SRESCrosuacman:1 = 9 3, v6 
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L10SuUB750 
Symbol table 


= LOADABLE 1/0 SUBROUTINES 19360-1388 90:39: } 


AX/VMS Ma 
SYSLOA.SR 


o v04-0 


cr 
Ci! 


0 
OSUB.MAR; 1 


x 02 


Ow 


$_BDPPURGERR 


vv vv Ue OOonm 


SS Sam 


_ERROR 
V~DPR~PUR 
CBSL-CR 
VEC$8~DATAPATH 
VEC$L ADP 
VEC$S"DATAPATH 
VECSV~DATAPATH 


$i 
$V_D 
4 

$ 


Cc 


@ 
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grower ee Cee + 


! Psect synopsis ! 
¢eeecen eee ee ee ene + 


PSECT No. 
00 ¢ OQ.) 
,a* 
G2 ¢« 2.) 


PSECT name Allocation. 

00000000 0.) 
00000000 < ef 
QOOOOOO3SF (« 63.) 


dons 


e 
! Performance indicators ! 
gee ree eesncocn See eo ese cease + 


} 


4 


NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


Elapsed Time 


Initialization 36 08:8 : 

Command processing 1 :00: 
if 8: : 
4 . 


0:00: 83 
3: 0: 
Pass :00: 
Symbol table sort : :00: 
Pass 2 ? 0:00: :00: 
1 :00: 
498 : : $ 


Symbol table output :00: 
Psect synopsis output :00: 5 
:00:87168 
The yorking set Limit was 1350 pages. 
44457 bytes (87 pages) of virtual memory were used to buffer the intermediate code. 


ONOFLO 
Viniw 


Cross-reference output 
Assembler run totals 

There were 50 pages of symbol table space allocated to hold 774 non-local and 4 local symbols. 
304 source Lines were read in Pass 1, producing object records in Pass 2. 


18 pages of virtual memory were used to define 17 macros. 
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L}0syer20 
VAX-11 Macro Run Statistics 


J 2 
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! Macro Library statistics ! 


domo emer een arena ron ransen + 


Macro Library name Macros defined 

3 $255$0UA28: SYS. OBJILIB. sat 1 10 
5SSDUA Syst IBISTARL -MLB;2 4 

TOTALS (all Libraries) 14 


869 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:L10SUB750/0BJ=0BJ$:LIOSUB750 MSRC$:CPUSW750/UPDATE=(ENH$: CPUSW750) +MSRC$:LIOSUB/UPDATE=(ENH$:LIOSUB) +EXECML$/LIB 


907 AH-BT13A-SE IPMENT CORPORA 
Vo7! VAX/VMS V4.0 
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